home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / dbase / do1beta.zip / COLLECT.DO < prev    next >
Text File  |  1991-07-16  |  628b  |  21 lines
  1. /*
  2.     this is a demonstration of dObject's Collection class
  3. */
  4. a = [5,3,9,5,100,44,5];
  5. ? "Collection is ",a;
  6. ? "added to itself is ",a+a;
  7. ? "length is ",len(a);
  8. ? "reversed is ",reverse(a);
  9. ? "third element is ",at(a,3);
  10. ? "last element is ",last(a);
  11. ? "with 100 removed is ",remove(a,100);
  12. ? "substitute 1005 for 5 is ",replace(a,5,1005);
  13. ? "is 44 in collection ?: ",44 $ a;
  14. ? "sorted array is ",sort(a);
  15. ? "unique array is ",unique(a);
  16. ? "unique sorted Collection is ",sort(unique(a));
  17. ? "sum of elements is ",sum(a);
  18. ? "minimum value is ",min(a);
  19. ? "maximum value is ",max(a);
  20. ? "average value is ",avg(a);
  21.